object frmListaCategorias: TfrmListaCategorias
  Left = 781
  Top = 235
  BorderStyle = bsDialog
  Caption = 'Categorias'
  ClientHeight = 495
  ClientWidth = 320
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object tlFluxo: TcxDBTreeList
    Left = 3
    Top = 2
    Width = 310
    Height = 487
    Bands = <
      item
        FixedKind = tlbfLeft
        Options.Moving = False
        Width = 300
      end>
    BufferedPaint = False
    DataController.DataSource = dsCategorias
    DataController.ParentField = 'Mae'
    DataController.KeyField = 'Codigo'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Verdana'
    Font.Style = []
    LookAndFeel.Kind = lfFlat
    OptionsSelection.CellSelect = False
    ParentFont = False
    RootValue = -1
    TabOrder = 0
    OnDblClick = tlFluxoDblClick
    object tlFluxocxDBTreeListColumn2: TcxDBTreeListColumn
      DataBinding.FieldName = 'Descricao'
      Width = 275
      Position.ColIndex = 0
      Position.RowIndex = 0
      Position.BandIndex = 0
    end
    object tlFluxocxDBTreeListColumn3: TcxDBTreeListColumn
      PropertiesClassName = 'TcxComboBoxProperties'
      Properties.Items.Strings = (
        'C'
        'D')
      DataBinding.FieldName = 'Tipo'
      Width = 25
      Position.ColIndex = 1
      Position.RowIndex = 0
      Position.BandIndex = 0
    end
  end
  object sqlCategorias: TSQLDataSet
    CommandText = 'Select * from Categorias'#13#10'order by Codigo,Mae'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = dtmPrincipal.sqlPrincipal
    Left = 73
    Top = 366
    object sqlCategoriasSequencial: TIntegerField
      FieldName = 'Sequencial'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object sqlCategoriasCodigo: TStringField
      FieldName = 'Codigo'
      FixedChar = True
      Size = 30
    end
    object sqlCategoriasMae: TStringField
      FieldName = 'Mae'
      FixedChar = True
      Size = 27
    end
    object sqlCategoriasDescricao: TStringField
      FieldName = 'Descricao'
      FixedChar = True
    end
    object sqlCategoriasTipo: TStringField
      FieldName = 'Tipo'
      FixedChar = True
      Size = 1
    end
  end
  object dspCategorias: TDataSetProvider
    DataSet = sqlCategorias
    Options = [poAllowCommandText]
    UpdateMode = upWhereKeyOnly
    Left = 101
    Top = 366
  end
  object cdsCategorias: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspCategorias'
    ReadOnly = True
    Left = 129
    Top = 366
    object cdsCategoriasSequencial: TIntegerField
      FieldName = 'Sequencial'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cdsCategoriasCodigo: TStringField
      FieldName = 'Codigo'
      FixedChar = True
      Size = 30
    end
    object cdsCategoriasMae: TStringField
      FieldName = 'Mae'
      FixedChar = True
      Size = 27
    end
    object cdsCategoriasDescricao: TStringField
      FieldName = 'Descricao'
      FixedChar = True
    end
    object cdsCategoriasTipo: TStringField
      FieldName = 'Tipo'
      FixedChar = True
      Size = 1
    end
  end
  object dsCategorias: TDataSource
    AutoEdit = False
    DataSet = cdsCategorias
    Left = 158
    Top = 366
  end
end
